home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00128_Verbetes- Numero do Verbete.ls < prev    next >
Encoding:
Text File  |  1999-03-19  |  482 b   |  22 lines

  1. property spr, mem
  2.  
  3. on beginSprite me
  4.   set spr = the spriteNum of me
  5.   set mem = the member of sprite spr
  6.   set texto = the text of member mem
  7. end
  8.  
  9. on mouseUp me
  10.   set the editable of sprite spr to true
  11. end
  12.  
  13. on keyUp me
  14.   set k = the key
  15.   if charToNum(k) = 13 then
  16.     global gVerbeteUltimo
  17.     set tmp = Integer(the text of member mem) + 9999
  18.     if tmp < 10000 then set tmp = 10000
  19.     else if tmp > gVerbeteUltimo then set tmp = gVerbeteUltimo
  20.     vaiVerbete(tmp,1)
  21.   end if
  22. end